home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 June
/
1984-06.d64
/
scroll 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
34 lines
5 rem the following rem statements are for the checksum program
6 rem to use the checksum program simply erase all rems (except lines 5 & 6)
7 rem and type run
10 data11507,12573,12522,11001
20 rem a=49152:b=84:c=a+b:fori=1to4:d=0:readx:forj=atoc:d=d+peek(j):next
30 rem ifd<>xthenprinttab(19)"error in block #"i:goto50
40 rem print"block #"i"is correct"
50 rem a=c+1:c=a+b:next:end
60 fori=1to4:reada:next:readlo,hi:fori=lotohi:readx:pokei,x:next:end
5000 data 49152, 49528
5010 data 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
5020 data 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
5030 data 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204
5040 data 116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200
5050 data 204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104
5060 data 145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104
5070 data 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116
5080 data 193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136
5090 data 169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
5100 data 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
5110 data 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
5120 data 177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208
5130 data 234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
5140 data 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92
5150 data 104,145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
5160 data 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
5170 data 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
5180 data 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
5190 data 24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
5200 data 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
5210 data 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
5220 data 5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0
5230 data 4,1,1